﻿Public Class F08_M_reverso_

    Private Sub btnAnverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnverso.Click
        Me.Close()
        F08_M_anverso_.Show()

    End Sub

    Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click

        Dim oF08MRNegocios As New Negocios.NF08_MR
        Dim oF08MR As New Entidades.EF08Vehiculos
        oF08MR.porvendd = UCase(txtporvend.Text)
        oF08MR.apenomvendd = UCase(txtapenomvend.Text)
        oF08MR.solterovendd = UCase(txtsolterovend.Text)
        oF08MR.casadovendd = UCase(txtcasadovend.Text)
        oF08MR.viudovendd = UCase(txtviudovend.Text)
        oF08MR.divvendd = UCase(txtdivvend.Text)
        oF08MR.numnupciavendd = UCase(txtnumnupciavend.Text)
        oF08MR.apevendd = UCase(txtapevend.Text)
        oF08MR.dnivendd = UCase(txtdnivend.Text)
        oF08MR.levendd = UCase(txtlevend.Text)
        oF08MR.lcvendd = UCase(txtlcvend.Text)
        oF08MR.dniextrvendd = UCase(txtdniextrvend.Text)
        oF08MR.ciextrvendd = UCase(txtciextrvend.Text)
        oF08MR.pasapvendd = UCase(txtpasapvend.Text)
        oF08MR.numdocvendd = UCase(txtnumdocvend.Text)
        oF08MR.autoridadvendd = UCase(txtautoridadvend.Text)
        oF08MR.apenomconyvendd = UCase(txtapenomconyvend.Text)
        oF08MR.apeapodconyvendd = UCase(txtapeapodconyvend.Text)
        oF08MR.dniconyvendd = UCase(txtdniconyvend.Text)
        oF08MR.leconyvendd = UCase(txtleconyvend.Text)
        oF08MR.lcconyvendd = UCase(txtlcconyvend.Text)
        oF08MR.dniextrconyvendd = UCase(txtdniextrconyvend.Text)
        oF08MR.ciextrconyvendd = UCase(txtciextrconyvend.Text)
        oF08MR.pasapconyvendd = UCase(txtpasapconyvend.Text)
        oF08MR.numdocconyvendd = UCase(txtnumdocconyvend.Text)
        oF08MR.autoridadconyvendd = UCase(txtautoridadconyvend.Text)
        oF08MR.porconddd = UCase(txtporccond.Text)
        oF08MR.apenomconddd = UCase(txtapenomcond.Text)
        oF08MR.solteroconddd = UCase(txtsolterocond.Text)
        oF08MR.casadoconddd = UCase(txtcasadocond.Text)
        oF08MR.viudoconddd = UCase(txtviudocond.Text)
        oF08MR.divconddd = UCase(txtdivcond.Text)
        oF08MR.numnupciaconddd = UCase(txtnumnupciacond.Text)
        oF08MR.apeconddd = UCase(txtapecond.Text)
        oF08MR.dniconddd = UCase(txtdnicond.Text)
        oF08MR.leconddd = UCase(txtlecond.Text)
        oF08MR.lcconddd = UCase(txtlccond.Text)
        oF08MR.dniextrconddd = UCase(txtdniextrcond.Text)
        oF08MR.ciextrconddd = UCase(txtciextrcond.Text)
        oF08MR.pasapconddd = UCase(txtpasapcond.Text)
        oF08MR.numdocconddd = UCase(txtnumdoccond.Text)
        oF08MR.autoridadconddd = UCase(txtautoridadcond.Text)
        oF08MR.apenomconyconddd = UCase(txtapenomconycond.Text)
        oF08MR.apeapodconyconddd = UCase(txtapeapodconycond.Text)
        oF08MR.dniconyconddd = UCase(txtdniconycond.Text)
        oF08MR.leconyconddd = UCase(txtleconycond.Text)
        oF08MR.lcconyconddd = UCase(txtlcconycond.Text)
        oF08MR.dniextrconyconddd = UCase(txtdniextrconycond.Text)
        oF08MR.ciextrconyconddd = UCase(txtciextrconycond.Text)
        oF08MR.pasapconyconddd = UCase(txtpasapconycond.Text)
        oF08MR.numdocconyconddd = UCase(txtnumdocconycond.Text)
        oF08MR.autoridadconyconddd = UCase(txtautoridadconycond.Text)
        oF08MR.apecompra = UCase(txtapecomprador.Text)
        oF08MR.dnicompraa = UCase(txtdnicompr.Text)
        oF08MR.lecompraa = UCase(txtlecompr.Text)
        oF08MR.lccompraa = UCase(txtlccompr.Text)
        oF08MR.dniextrcompraa = UCase(txtdniextrcompr.Text)
        oF08MR.lecompraa = UCase(txtlecompr.Text)
        oF08MR.lccompraa = UCase(txtlccompr.Text)
        oF08MR.dniextrcompraa = UCase(txtdniextrcompr.Text)
        oF08MR.ciextrcompraa = UCase(txtciextrcompr.Text)
        oF08MR.pasapcompraa = UCase(txtpasapcompr.Text)
        oF08MR.numdoccompraa = UCase(txtnumdoccompr.Text)
        oF08MR.autoridadcompraa = UCase(txtautoridadcompr.Text)
        oF08MR.apecon = UCase(txtapecondominio.Text)
        oF08MR.dniconn = UCase(txtdnicond.Text)
        oF08MR.leconn = UCase(txtlecond.Text)
        oF08MR.lcconn = UCase(txtlccond.Text)
        oF08MR.dniextrconn = UCase(txtdniextrcond.Text)
        oF08MR.ciextrconn = UCase(txtciextrcond.Text)
        oF08MR.pasapconn = UCase(txtpasapcond.Text)
        oF08MR.numdocconn = UCase(txtnumdoccond.Text)
        oF08MR.autoridadconn = UCase(txtautoridadcond.Text)
        oF08MR.observacioness = UCase(txtobservaciones.Text)
        oF08MR.lugarr = UCase(txtlugar.Text)
        oF08MR.diafechaa = UCase(txtdiafecha.Text)
        oF08MR.mesfechaa = UCase(txtmesfecha.Text)
        oF08MR.añofechaa = UCase(txtañofecha.Text)
        oF08MR.autorizaa = UCase(txtautoriza.Text)
        oF08MR.docnumm = UCase(txtdocnum.Text)
        oF08MR.recibii = UCase(txtrecibi.Text)
        
        Try
            If oF08MRNegocios.guardarF08MR(oF08MR) Then
                MsgBox("La carga ha sido exitosa", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
    End Sub

    Private Sub btnEditarReverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditarReverso.Click

        Dim oF08MRNegocios As New Negocios.NF08_MR
        Dim oF08MR As New Entidades.EF08Vehiculos
        oF08MR.porvendd = UCase(txtporvend.Text)
        oF08MR.apenomvendd = UCase(txtapenomvend.Text)
        oF08MR.solterovendd = UCase(txtsolterovend.Text)
        oF08MR.casadovendd = UCase(txtcasadovend.Text)
        oF08MR.viudovendd = UCase(txtviudovend.Text)
        oF08MR.divvendd = UCase(txtdivvend.Text)
        oF08MR.numnupciavendd = UCase(txtnumnupciavend.Text)
        oF08MR.apevendd = UCase(txtapevend.Text)
        oF08MR.dnivendd = UCase(txtdnivend.Text)
        oF08MR.levendd = UCase(txtlevend.Text)
        oF08MR.lcvendd = UCase(txtlcvend.Text)
        oF08MR.dniextrvendd = UCase(txtdniextrvend.Text)
        oF08MR.ciextrvendd = UCase(txtciextrvend.Text)
        oF08MR.pasapvendd = UCase(txtpasapvend.Text)
        oF08MR.numdocvendd = UCase(txtnumdocvend.Text)
        oF08MR.autoridadvendd = UCase(txtautoridadvend.Text)
        oF08MR.apenomconyvendd = UCase(txtapenomconyvend.Text)
        oF08MR.apeapodconyvendd = UCase(txtapeapodconyvend.Text)
        oF08MR.dniconyvendd = UCase(txtdniconyvend.Text)
        oF08MR.leconyvendd = UCase(txtleconyvend.Text)
        oF08MR.lcconyvendd = UCase(txtlcconyvend.Text)
        oF08MR.dniextrconyvendd = UCase(txtdniextrconyvend.Text)
        oF08MR.ciextrconyvendd = UCase(txtciextrconyvend.Text)
        oF08MR.pasapconyvendd = UCase(txtpasapconyvend.Text)
        oF08MR.numdocconyvendd = UCase(txtnumdocconyvend.Text)
        oF08MR.autoridadconyvendd = UCase(txtautoridadconyvend.Text)
        oF08MR.porconddd = UCase(txtporccond.Text)
        oF08MR.apenomconddd = UCase(txtapenomcond.Text)
        oF08MR.solteroconddd = UCase(txtsolterocond.Text)
        oF08MR.casadoconddd = UCase(txtcasadocond.Text)
        oF08MR.viudoconddd = UCase(txtviudocond.Text)
        oF08MR.divconddd = UCase(txtdivcond.Text)
        oF08MR.numnupciaconddd = UCase(txtnumnupciacond.Text)
        oF08MR.apeconddd = UCase(txtapecond.Text)
        oF08MR.dniconddd = UCase(txtdnicond.Text)
        oF08MR.leconddd = UCase(txtlecond.Text)
        oF08MR.lcconddd = UCase(txtlccond.Text)
        oF08MR.dniextrconddd = UCase(txtdniextrcond.Text)
        oF08MR.ciextrconddd = UCase(txtciextrcond.Text)
        oF08MR.pasapconddd = UCase(txtpasapcond.Text)
        oF08MR.numdocconddd = UCase(txtnumdoccond.Text)
        oF08MR.autoridadconddd = UCase(txtautoridadcond.Text)
        oF08MR.apenomconyconddd = UCase(txtapenomconycond.Text)
        oF08MR.apeapodconyconddd = UCase(txtapeapodconycond.Text)
        oF08MR.dniconyconddd = UCase(txtdniconycond.Text)
        oF08MR.leconyconddd = UCase(txtleconycond.Text)
        oF08MR.lcconyconddd = UCase(txtlcconycond.Text)
        oF08MR.dniextrconyconddd = UCase(txtdniextrconycond.Text)
        oF08MR.ciextrconyconddd = UCase(txtciextrconycond.Text)
        oF08MR.pasapconyconddd = UCase(txtpasapconycond.Text)
        oF08MR.numdocconyconddd = UCase(txtnumdocconycond.Text)
        oF08MR.autoridadconyconddd = UCase(txtautoridadconycond.Text)
        oF08MR.apecompra = UCase(txtapecomprador.Text)
        oF08MR.dnicompraa = UCase(txtdnicompr.Text)
        oF08MR.lecompraa = UCase(txtlecompr.Text)
        oF08MR.lccompraa = UCase(txtlccompr.Text)
        oF08MR.dniextrcompraa = UCase(txtdniextrcompr.Text)
        oF08MR.lecompraa = UCase(txtlecompr.Text)
        oF08MR.lccompraa = UCase(txtlccompr.Text)
        oF08MR.dniextrcompraa = UCase(txtdniextrcompr.Text)
        oF08MR.ciextrcompraa = UCase(txtciextrcompr.Text)
        oF08MR.pasapcompraa = UCase(txtpasapcompr.Text)
        oF08MR.numdoccompraa = UCase(txtnumdoccompr.Text)
        oF08MR.autoridadcompraa = UCase(txtautoridadcompr.Text)
        oF08MR.apecon = UCase(txtapecondominio.Text)
        oF08MR.dniconn = UCase(txtdnicond.Text)
        oF08MR.leconn = UCase(txtlecond.Text)
        oF08MR.lcconn = UCase(txtlccond.Text)
        oF08MR.dniextrconn = UCase(txtdniextrcond.Text)
        oF08MR.ciextrconn = UCase(txtciextrcond.Text)
        oF08MR.pasapconn = UCase(txtpasapcond.Text)
        oF08MR.numdocconn = UCase(txtnumdoccond.Text)
        oF08MR.autoridadconn = UCase(txtautoridadcond.Text)
        oF08MR.observacioness = UCase(txtobservaciones.Text)
        oF08MR.lugarr = UCase(txtlugar.Text)
        oF08MR.diafechaa = UCase(txtdiafecha.Text)
        oF08MR.mesfechaa = UCase(txtmesfecha.Text)
        oF08MR.añofechaa = UCase(txtañofecha.Text)
        oF08MR.autorizaa = UCase(txtautoriza.Text)
        oF08MR.docnumm = UCase(txtdocnum.Text)
        oF08MR.recibii = UCase(txtrecibi.Text)

        Try
            If oF08MRNegocios.editarF08MR(oF08MR) Then
                MsgBox("La Edición ha sido exitosa", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Edición fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
    End Sub

    Private Sub btnEditarAnverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditarAnverso.Click
        F08_M_anverso_.Show()
    End Sub

    Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click
        Me.Close()
    End Sub

    Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
        txtporvend.Text = ""
        txtapenomvend.Text = ""
        txtsolterovend.Text = ""
        txtcasadovend.Text = ""
        txtviudovend.Text = ""
        txtdivvend.Text = ""
        txtnumnupciavend.Text = ""
        txtapevend.Text = ""
        txtdnivend.Text = ""
        txtlevend.Text = ""
        txtdnivend.Text = ""
        txtlevend.Text = ""
        txtlcvend.Text = ""
        txtdniextrvend.Text = ""
        txtciextrvend.Text = ""
        txtpasapvend.Text = ""
        txtnumdocvend.Text = ""
        txtautoridadvend.Text = ""
        txtapenomconyvend.Text = ""
        txtapeapodconyvend.Text = ""
        txtdniconyvend.Text = ""
        txtleconyvend.Text = ""
        txtlcconyvend.Text = ""
        txtdniextrconyvend.Text = ""
        txtciextrconyvend.Text = ""
        txtpasapconyvend.Text = ""
        txtnumdocconyvend.Text = ""
        txtautoridadconyvend.Text = ""
        txtporccond.Text = ""
        txtapenomcond.Text = ""
        txtsolterocond.Text = ""
        txtcasadocond.Text = ""
        txtviudocond.Text = ""
        txtdivcond.Text = ""
        txtnumnupciacond.Text = ""
        txtapecond.Text = ""
        txtdnicond.Text = ""
        txtlecond.Text = ""
        txtlccond.Text = ""
        txtdniextrcond.Text = ""
        txtciextrcond.Text = ""
        txtpasapcond.Text = ""
        txtnumdocvend.Text = ""
        txtautoridadcond.Text = ""
        txtapenomconycond.Text = ""
        txtdniconycond.Text = ""
        txtleconycond.Text = ""
        txtlcconyvend.Text = ""
        txtdniextrcond.Text = ""
        txtciextrcond.Text = ""
        txtpasapconycond.Text = ""
        txtnumdocconyvend.Text = ""
        txtautoridadconycond.Text = ""
        txtapecomprador.Text = ""
        txtdnicompr.Text = ""
        txtlecompr.Text = ""
        txtlccompr.Text = ""
        txtdniextrcompr.Text = ""
        txtciextrcompr.Text = ""
        txtpasapcompr.Text = ""
        txtnumdoccompr.Text = ""
        txtautoridadcompr.Text = ""
        txtapecondominio.Text = ""
        txtdnicond.Text = ""
        txtlecond.Text = ""
        txtlccond.Text = ""
        txtdniextrcond.Text = ""
        txtciextrcond.Text = ""
        txtpasapcond.Text = ""
        txtnumdoccond.Text = ""
        txtautoridadcond.Text = ""
        txtobservaciones.Text = ""
        txtlugar.Text = ""
        txtdiafecha.Text = ""
        txtmesfecha.Text = ""
        txtañofecha.Text = ""
        txtautoriza.Text = ""
        txtdocnum.Text = ""
        txtrecibi.Text = ""


    End Sub
    Private Sub btnF01V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01V.Click
        F01_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF01M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01M.Click
        F01_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF01I_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01I.Click
        F01_VImp_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF02V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF02V.Click
        F02_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF02M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF02M.Click
        F02_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF04V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF04V.Click
        F04_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
        F04_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF08V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF08V.Click
        F08_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF08M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF08M.Click
        F08_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF11V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF11V.Click
        F11_V_anverso_.Show()
        Me.Close()

    End Sub

    Private Sub btnF11M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF11M.Click
        F11_M_anverso_.Show()
        Me.Close()

    End Sub

    Private Sub btnF12V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF12V.Click
        F12_V.Show()
        Me.Close()
    End Sub

    Private Sub btnF12M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF12M.Click
        F12_M.Show()
        Me.Close()
    End Sub

    Private Sub btnF99_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF99.Click
        F99.Show()
        Me.Close()
    End Sub

    Private Sub btnF59M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF59M.Click
        F59_M.Show()
        Me.Close()
    End Sub

    Private Sub btnFR00_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFR00.Click
        F_R00.Show()
        Me.Close()
    End Sub
End Class
